home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / clsres1a / frmresiz.frm < prev    next >
Text File  |  1999-09-04  |  3KB  |  111 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form frmResizerSample 
  4.    Caption         =   "Resizer Sample"
  5.    ClientHeight    =   1620
  6.    ClientLeft      =   3075
  7.    ClientTop       =   1575
  8.    ClientWidth     =   4035
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1620
  11.    ScaleWidth      =   4035
  12.    Begin TabDlg.SSTab tabResizerSample 
  13.       Height          =   1545
  14.       Left            =   45
  15.       TabIndex        =   0
  16.       Top             =   45
  17.       Width           =   3960
  18.       _ExtentX        =   6985
  19.       _ExtentY        =   2725
  20.       _Version        =   327681
  21.       Style           =   1
  22.       TabHeight       =   520
  23.       TabCaption(0)   =   "Tab 0"
  24.       TabPicture(0)   =   "frmResizerSample.frx":0000
  25.       Tab(0).ControlEnabled=   -1  'True
  26.       Tab(0).Control(0)=   "txtResizerSample(0)"
  27.       Tab(0).Control(0).Enabled=   0   'False
  28.       Tab(0).Control(1)=   "tmrChangeTab"
  29.       Tab(0).Control(1).Enabled=   0   'False
  30.       Tab(0).ControlCount=   2
  31.       TabCaption(1)   =   "Tab 1"
  32.       TabPicture(1)   =   "frmResizerSample.frx":001C
  33.       Tab(1).ControlEnabled=   0   'False
  34.       Tab(1).Control(0)=   "txtResizerSample(1)"
  35.       Tab(1).ControlCount=   1
  36.       TabCaption(2)   =   "Tab 2"
  37.       TabPicture(2)   =   "frmResizerSample.frx":0038
  38.       Tab(2).ControlEnabled=   0   'False
  39.       Tab(2).Control(0)=   "txtResizerSample(2)"
  40.       Tab(2).ControlCount=   1
  41.       Begin VB.Timer tmrChangeTab 
  42.          Interval        =   1000
  43.          Left            =   1755
  44.          Top             =   900
  45.       End
  46.       Begin VB.TextBox txtResizerSample 
  47.          Height          =   285
  48.          Index           =   1
  49.          Left            =   -74910
  50.          TabIndex        =   3
  51.          Text            =   "Index Occurrence One."
  52.          Top             =   765
  53.          Width           =   3750
  54.       End
  55.       Begin VB.TextBox txtResizerSample 
  56.          Height          =   285
  57.          Index           =   2
  58.          Left            =   -74910
  59.          TabIndex        =   2
  60.          Text            =   "Index Occurrence Two."
  61.          Top             =   1125
  62.          Width           =   3750
  63.       End
  64.       Begin VB.TextBox txtResizerSample 
  65.          Height          =   285
  66.          Index           =   0
  67.          Left            =   90
  68.          TabIndex        =   1
  69.          Text            =   "Index Occurrence Zero."
  70.          Top             =   405
  71.          Width           =   3750
  72.       End
  73.    End
  74. End
  75. Attribute VB_Name = "frmResizerSample"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Option Explicit
  81.   Private Resizer As clsResize
  82.  
  83. Private Sub Form_Load()
  84.   Set Resizer = New clsResize
  85.  
  86.   Resizer.SourceForm = Me
  87.   Resizer.SizeFormToScreen 75
  88. End Sub
  89.  
  90. Private Sub Form_Resize()
  91.   Resizer.ResizeControls
  92. End Sub
  93.  
  94. Private Sub Form_Unload(Cancel As Integer)
  95.   Set Resizer = Nothing
  96. End Sub
  97.  
  98. Private Sub tmrChangeTab_Timer()
  99.   Static CurrentTab As Long
  100.  
  101.   CurrentTab = tabResizerSample.Tab
  102.  
  103.   If ((CurrentTab + 1) = tabResizerSample.Tabs) Then
  104.     CurrentTab = 0
  105.   Else
  106.     CurrentTab = CurrentTab + 1
  107.   End If
  108.  
  109.   tabResizerSample.Tab = CurrentTab
  110. End Sub
  111.